/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc A) / Acorn User China CD-ROM (UK) (Disc A).bin / DEMON / DEVELOPER / NETCONF0.ARC / !NetConfig_Lib_save

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0a f4 3e 73 61 | 76 65 0d 00 0b 21 f4 20 |.....>sa|ve...!. |
|00000010| 43 6f 70 79 72 69 67 68 | 74 20 31 39 39 35 20 43 |Copyrigh|t 1995 C|
|00000020| 6f 6c 69 6e 20 48 6f 67 | 62 65 6e 0d 00 0c 40 f4 |olin Hog|ben...@.|
|00000030| 20 59 6f 75 20 75 73 65 | 20 74 68 69 73 20 63 6f | You use| this co|
|00000040| 64 65 20 66 6f 72 20 61 | 6e 79 20 6e 6f 6e 2d 70 |de for a|ny non-p|
|00000050| 72 6f 66 69 74 20 70 75 | 72 70 6f 73 65 2c 20 70 |rofit pu|rpose, p|
|00000060| 72 6f 76 69 64 65 64 20 | 79 6f 75 0d 00 0d 3e f4 |rovided |you...>.|
|00000070| 20 64 6f 63 75 6d 65 6e | 74 20 61 6e 79 20 63 68 | documen|t any ch|
|00000080| 61 6e 67 65 73 20 6d 61 | 64 65 20 61 6e 64 20 61 |anges ma|de and a|
|00000090| 70 70 6c 79 20 74 68 65 | 20 73 61 6d 65 20 63 6f |pply the| same co|
|000000a0| 6e 64 69 74 69 6f 6e 73 | 2e 0d 00 14 04 0d 00 15 |nditions|........|
|000000b0| 1e f4 20 52 65 61 64 20 | 61 6e 64 20 77 72 69 74 |.. Read |and writ|
|000000c0| 65 20 73 61 76 65 20 66 | 69 6c 65 0d 00 1e 04 0d |e save f|ile.....|
|000000d0| 00 28 10 dd 20 a4 73 61 | 76 65 5f 69 6e 69 74 0d |.(.. .sa|ve_init.|
|000000e0| 00 29 13 f2 6c 69 62 72 | 61 72 79 28 22 76 61 72 |.)..libr|ary("var|
|000000f0| 22 29 0d 00 2a 14 f2 6c | 69 62 72 61 72 79 28 22 |")..*..l|ibrary("|
|00000100| 66 69 6c 65 22 29 0d 00 | 32 10 73 61 76 65 5f 66 |file")..|2.save_f|
|00000110| 69 6c 65 25 3d 30 0d 00 | 3c 06 3d 30 0d 00 46 04 |ile%=0..|<.=0..F.|
|00000120| 0d 00 50 17 dd 20 f2 73 | 61 76 65 5f 6f 70 65 6e |..P.. .s|ave_open|
|00000130| 28 66 69 6c 65 24 29 0d | 00 5a 24 73 61 76 65 5f |(file$).|.Z$save_|
|00000140| 66 69 6c 65 25 3d a4 66 | 69 6c 65 5f 6f 70 65 6e |file%=.f|ile_open|
|00000150| 28 66 69 6c 65 24 2c 22 | 77 22 29 0d 00 64 3d e7 |(file$,"|w")..d=.|
|00000160| 20 73 61 76 65 5f 66 69 | 6c 65 25 3d 30 20 f2 66 | save_fi|le%=0 .f|
|00000170| 61 74 61 6c 28 22 43 61 | 6e 6e 6f 74 20 6f 70 65 |atal("Ca|nnot ope|
|00000180| 6e 20 22 2b 66 69 6c 65 | 24 2b 22 20 66 6f 72 20 |n "+file|$+" for |
|00000190| 6f 75 74 70 75 74 22 29 | 0d 00 65 1f f2 66 69 6c |output")|..e..fil|
|000001a0| 65 5f 73 65 74 74 79 70 | 65 28 66 69 6c 65 24 2c |e_settyp|e(file$,|
|000001b0| 22 54 65 78 74 22 29 0d | 00 6e 05 e1 0d 00 78 04 |"Text").|.n....x.|
|000001c0| 0d 00 82 18 dd 20 f2 73 | 61 76 65 5f 77 72 69 74 |..... .s|ave_writ|
|000001d0| 65 28 6c 69 6e 65 24 29 | 0d 00 83 2f e7 20 73 61 |e(line$)|.../. sa|
|000001e0| 76 65 5f 66 69 6c 65 25 | 3d 30 20 f2 66 61 74 61 |ve_file%|=0 .fata|
|000001f0| 6c 28 22 53 61 76 65 20 | 66 69 6c 65 20 6e 6f 74 |l("Save |file not|
|00000200| 20 6f 70 65 6e 22 29 0d | 00 8c 16 d5 23 73 61 76 | open").|....#sav|
|00000210| 65 5f 66 69 6c 65 25 2c | 6c 69 6e 65 24 0d 00 96 |e_file%,|line$...|
|00000220| 05 e1 0d 00 a0 04 0d 00 | aa 11 dd 20 f2 73 61 76 |........|... .sav|
|00000230| 65 5f 63 6c 6f 73 65 0d | 00 b4 38 e7 20 73 61 76 |e_close.|..8. sav|
|00000240| 65 5f 66 69 6c 65 25 20 | 8c 20 f2 66 69 6c 65 5f |e_file% |. .file_|
|00000250| 63 6c 6f 73 65 28 73 61 | 76 65 5f 66 69 6c 65 25 |close(sa|ve_file%|
|00000260| 29 3a 20 73 61 76 65 5f | 66 69 6c 65 25 3d 30 0d |): save_|file%=0.|
|00000270| 00 be 05 e1 0d 00 c8 04 | 0d 00 d2 18 dd 20 f2 73 |........|..... .s|
|00000280| 61 76 65 5f 76 61 72 73 | 28 5f 6c 69 73 74 24 29 |ave_vars|(_list$)|
|00000290| 0d 00 dc 0b ea 20 5f 76 | 61 72 24 0d 00 e6 1d 5f |..... _v|ar$...._|
|000002a0| 76 61 72 24 3d a4 73 74 | 72 74 6f 6b 28 5f 6c 69 |var$=.st|rtok(_li|
|000002b0| 73 74 24 2c 22 2c 22 29 | 0d 00 f0 0f c8 95 20 5f |st$,",")|...... _|
|000002c0| 76 61 72 24 3e 22 22 0d | 00 f1 29 20 20 f2 73 61 |var$>"".|..)  .sa|
|000002d0| 76 65 5f 77 72 69 74 65 | 28 5f 76 61 72 24 2b 22 |ve_write|(_var$+"|
|000002e0| 3d 22 2b a0 28 5f 76 61 | 72 24 2b 22 24 22 29 29 |="+.(_va|r$+"$"))|
|000002f0| 0d 00 fa 1f 20 20 5f 76 | 61 72 24 3d a4 73 74 72 |....  _v|ar$=.str|
|00000300| 74 6f 6b 28 5f 6c 69 73 | 74 24 2c 22 2c 22 29 0d |tok(_lis|t$,",").|
|00000310| 01 04 05 ce 0d 01 05 05 | e1 0d 01 06 04 0d 01 07 |........|........|
|00000320| 1c dd 20 f2 73 61 76 65 | 5f 72 65 61 64 66 69 6c |.. .save|_readfil|
|00000330| 65 28 5f 66 69 6c 65 24 | 29 0d 01 08 12 ea 20 66 |e(_file$|)..... f|
|00000340| 25 2c 5f 6c 69 6e 65 24 | 2c 69 25 0d 01 09 1d 66 |%,_line$|,i%....f|
|00000350| 25 3d a4 66 69 6c 65 5f | 6f 70 65 6e 28 5f 66 69 |%=.file_|open(_fi|
|00000360| 6c 65 24 2c 22 72 22 29 | 0d 01 0a 35 e7 20 66 25 |le$,"r")|...5. f%|
|00000370| 3d 30 20 f2 66 61 74 61 | 6c 28 22 43 61 6e 6e 6f |=0 .fata|l("Canno|
|00000380| 74 20 6f 70 65 6e 20 22 | 2b 5f 66 69 6c 65 24 2b |t open "|+_file$+|
|00000390| 22 20 66 6f 72 20 69 6e | 70 75 74 22 29 0d 01 0b |" for in|put")...|
|000003a0| 0c c8 95 20 ac c5 23 66 | 25 0d 01 0c 11 20 20 5f |... ..#f|%....  _|
|000003b0| 6c 69 6e 65 24 3d be 23 | 66 25 0d 01 0d 15 20 20 |line$=.#|f%....  |
|000003c0| 69 25 3d a7 5f 6c 69 6e | 65 24 2c 22 3d 22 29 0d |i%=._lin|e$,"=").|
|000003d0| 01 0e 34 20 20 e7 20 69 | 25 20 f2 76 61 72 5f 73 |..4  . i|% .var_s|
|000003e0| 65 74 28 c0 5f 6c 69 6e | 65 24 2c 69 25 2d 31 29 |et(._lin|e$,i%-1)|
|000003f0| 2b 22 24 22 2c c1 5f 6c | 69 6e 65 24 2c 69 25 2b |+"$",._l|ine$,i%+|
|00000400| 31 29 29 0d 01 0f 05 ce | 0d 01 10 13 f2 66 69 6c |1)).....|.....fil|
|00000410| 65 5f 63 6c 6f 73 65 28 | 66 25 29 0d 01 11 05 e1 |e_close(|f%).....|
|00000420| 0d ff                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+